home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
501-525
/
disk_510
/
atcopy
/
janus
/
janus.asm
< prev
next >
Wrap
Assembly Source File
|
1992-05-06
|
5KB
|
301 lines
*******************************************
*
* Link Library für Janus.library aus
*
* Amiga INTERN (DB)
*
*******************************************
XREF _JanusBase
XDEF _AddService
XDEF _CallService
XDEF _DeleteService
XDEF _GetService
XDEF _ReleaseService
XDEF _UnlockServiceData
XDEF _LockServiceData
XDEF _AllocJanusMem
XDEF _AllocJRemember
XDEF _AllocServiceMem
XDEF _AttachJRemember
XDEF _FreeJanusMem
XDEF _FreeJRemember
XDEF _FreeServiceMem
XDEF _GetJanusStart
XDEF _JanusMemBase
XDEF _JanusMemToOffset
XDEF _JanusMemType
XDEF _JanusOffsetToMem
XDEF _JBCopy
XDEF _JanusLock
XDEF _JanusLockAttempt
XDEF _JanusUnlock
XDEF _MakeBytePtr
XDEF _MakeWordPtr
XDEF _TranslateJanusPtr
XDEF _CheckJanusInt
XDEF _CleanupJanusSig
XDEF _GetParamOffset
XDEF _SendJanusInt
XDEF _SetJanusEnable
XDEF _SetJanusHandler
XDEF _SetJanusRequest
XDEF _SetParamOffset
XDEF _SetupJanusSig
CSEG
_AddService:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
movem.l 12(a7),d0-d5
jsr -138(a6)
movea.l (a7)+,a6
rts
_CallService:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -150(a6)
movea.l (a7)+,a6
rts
_DeleteService:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -162(a6)
movea.l (a7)+,a6
rts
_GetService:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
movem.l 12(a7),d0-d3
jsr -144(a6)
movea.l (a7)+,a6
rts
_ReleaseService:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -156(a6)
movea.l (a7)+,a6
rts
_UnlockServiceData:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -234(a6)
movea.l (a7)+,a6
rts
_LockServiceData:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -228(a6)
movea.l (a7)+,a6
rts
_AllocJanusMem:
move.l a6,-(a7)
movea.l _JanusBase,a6
movem.l 8(a7),d0-d1
jsr -60(a6)
movea.l (a7)+,a6
rts
_AllocJRemember:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
movem.l 12(a7),d0-d1
jsr -192(a6)
movea.l (a7)+,a6
rts
_AllocServiceMem:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
movem.l 12(a7),d0-d1
jsr -210(a6)
movea.l (a7)+,a6
rts
_AttachJRemember:
move.l a6,-(a7)
movea.l _JanusBase,a6
movem.l 8(a7),a0-a1
jsr -204(a6)
movea.l (a7)+,a6
rts
_FreeJanusMem:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a1
move.l 12(a7),d0
jsr -66(a6)
movea.l (a7)+,a6
rts
_FreeJRemember:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
move.l 12(a7),d0
jsr -198(a6)
movea.l (a7)+,a6
rts
_FreeServiceMem:
move.l a6,-(a7)
movea.l _JanusBase,a6
movem.l 8(a7),a0-a1
jsr -216(a6)
movea.l (a7)+,a6
rts
_GetJanusStart:
move.l a6,-(a7)
movea.l _JanusBase,a6
jsr -102(a6)
movea.l (a7)+,a6
rts
_JanusMemBase:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),d0
jsr -72(a6)
movea.l (a7)+,a6
rts
_JanusMemToOffset:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),d0
jsr -84(a6)
movea.l (a7)+,a6
rts
_JanusMemType:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),d0
jsr -78(a6)
movea.l (a7)+,a6
rts
_JanusOffsetToMem:
move.l a6,-(a7)
movea.l _JanusBase,a6
movem.l 8(a7),d0-d1
jsr -168(a6)
movea.l (a7)+,a6
rts
_JBCopy:
move.l a6,-(a7)
movea.l _JanusBase,a6
movem.l 8(a7),a0-a1
move.l 16(a7),d0
jsr -132(a6)
movea.l (a7)+,a6
rts
_JanusLock:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -120(a6)
movea.l (a7)+,a6
rts
_JanusLockAttempt:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -222(a6)
movea.l (a7)+,a6
rts
_JanusUnlock:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -126(a6)
movea.l (a7)+,a6
rts
_MakeBytePtr:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -180(a6)
movea.l (a7)+,a6
rts
_MakeWordPtr:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -186(a6)
movea.l (a7)+,a6
rts
_TranslateJanusPtr:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
move.l 12(a7),d0
jsr -174(a6)
movea.l (a7)+,a6
rts
_CheckJanusInt:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),d0
jsr -54(a6)
movea.l (a7)+,a6
rts
_CleanupJanusSig:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
jsr -114(a6)
movea.l (a7)+,a6
rts
_GetParamOffset:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),d0
jsr -90(a6)
movea.l (a7)+,a6
rts
_SendJanusInt:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),d0
jsr -48(a6)
movea.l (a7)+,a6
rts
_SetJanusEnable:
move.l a6,-(a7)
movea.l _JanusBase,a6
movem.l 8(a7),d0-d1
jsr -36(a6)
movea.l (a7)+,a6
rts
_SetJanusHandler:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),d0
move.l 12(a7),a1
jsr -30(a6)
movea.l (a7)+,a6
rts
_SetJanusRequest:
move.l a6,-(a7)
movea.l _JanusBase,a6
movem.l 8(a7),d0-d1
jsr -42(a6)
movea.l (a7)+,a6
rts
_SetParamOffset:
move.l a6,-(a7)
movea.l _JanusBase,a6
movem.l 8(a7),d0-d1
jsr -96(a6)
movea.l (a7)+,a6
rts
_SetupJanusSig:
move.l a6,-(a7)
movea.l _JanusBase,a6
move.l 8(a7),a0
movem.l 12(a7),d0-d3
jsr -108(a6)
movea.l (a7)+,a6
rts
end